unit u_consultapadrao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, JvExDBGrids, JvDBGrid, AdvGlowButton, StdCtrls,
  AdvEdit, DBAdvEd, ExtCtrls, Buttons, ToolWin, JvExForms, JvScrollPanel,
  FMTBcd, SqlExpr, Provider, DB, DBClient, frm_empresafilial;

type
  TFRM_ConsultaPadrao = class(TForm)
    jvMenuLateral: TJvScrollingWindow;
    btnNovo: TSpeedButton;
    pnlCentral: TPanel;
    pnlResumo: TPanel;
    lblTotal: TLabel;
    GridConsulta: TJvDBGrid;
    dsConsulta: TDataSource;
    pnlFiltro: TPanel;
    FR_PesquisarEmpresaFilial: TFR_EmpresaFilial;
    pnlPesquisar: TPanel;
    Label1: TLabel;
    cboFiltro: TComboBox;
    edtPesquisar: TAdvEdit;
    btnPesquisar: TAdvGlowButton;
    btnAtualizarLista: TAdvGlowButton;
    procedure FR_PesquisarEmpresaFilialbtnPesqEmpresaClick(
      Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_ConsultaPadrao: TFRM_ConsultaPadrao;

implementation

uses u_dm_geral;

{$R *.dfm}

procedure TFRM_ConsultaPadrao.FR_PesquisarEmpresaFilialbtnPesqEmpresaClick(Sender: TObject);
begin
  FR_PesquisarEmpresaFilial.btnPesqEmpresaClick(Sender); 
end;

end.
